home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / COPYV2V.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  296b  |  23 lines
  1. $INCLUDE "REGNAMES.INC"
  2. screen 12
  3.  
  4. buf$=string$(30000,chr$(0))
  5.  
  6. bufseg=STRSEG(buf$)
  7. bufofs=STRPTR(buf$)
  8.  
  9. for i=0 to 480 step 20
  10.  line (0,i)-(640,i+20),rnd*15,bf
  11. next
  12.  
  13. DEF SEG = &HA000
  14. o1=&H0000
  15. o2=(160*640)/8
  16.  
  17. OUT &H3CE,&H105
  18.  
  19. for i=0 to &H6000
  20.  POKE o2+i,PEEK(o1+i)
  21. next
  22.  
  23.